home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / snip9707.zip / HAMLET.C < prev    next >
C/C++ Source or Header  |  1997-07-05  |  8KB  |  105 lines

  1. /* +++Date last modified: 05-Jul-1997 */
  2.  
  3. /* Written by Tom Torfs (2:292/516@fidonet,tomtorfs@dma.be)
  4.    Donated to the public domain */
  5.  
  6. #include <stdio.h>
  7. #include <stdlib.h>
  8. #include <string.h>
  9. #define /*_## (__\* /#*/__(/* #)#_*/_/*__ (#_)*/) /*__*/# _/*#_) _(_##_)\*#_*/
  10. char _t[]=__(ABCDEF) __(GHIJKLM) __(NOPQRS) __(TUVWXYZ) __(abcdef) __(ghijklm)
  11. __(nopqrs) __(tuvwxyz) ".,;- ?!'\n"; _(char *); _b(char); main(int c,char **a){
  12. if (_(__(I##dt)),_(__(Q##Tqt)),_(__(d##gtc)),_(__(d##iti))) main(c-1,a+1);
  13. if (_(__(dtQ##Tt)),_(__(s##ti)),_(__(W##Pi)),_(__(t##Xht))) main(c+1,a-1);
  14. if (_(__(i##WT)),_(__(tfj##Th)),_(__(iXd##cp)),_(__(x##LW))) main(c-1,a+1);
  15. if (_(__(TiW##Tg)),_(__(twi##Xh)),_(__(tc##dQ)),_(__(aT##gt))) main(c+1,a-1);
  16. if (_(__(Xc##ti)),_(__(W##Tt)),_(__(b##Xc)),_(__(S##tid))) main(c-1,a+1);
  17. if (_(__(t##hjU)),_(__(U##TgxI)),_(__(W##Tt)),_(__(h##aXcV))) main(c+1,a-1);
  18. if (_(__(ht##Pc)),_(__(S##tPg)),_(__(g##dlht)),_(__(d##Utd))) main(c-1,a+1);
  19. if (_(__(ji##gP)),_(__(V##Tdj)),_(__(h##tU)),_(__(d##gi))) main(c+1,a-1);
  20. if (_(__(j##cTq)),_(__(x##Dgt)),_(__(id##ti)),_(__(P##ZT))) main(c-1,a+1);
  21. if (_(__(t##Pg)),_(__(b##ht)),_(__(P##VPX)),_(__(c##hi))) main(c+1,a-1);
  22. if (_(__(t##Pt)),_(__(hTP##td)),_(__(Uti##gd)),_(__(jQ##aT))) main(c-1,a+1);
  23. if (_(__(h##qx)),_(__(y##cSt)),_(__(Q##ntd)),_(__(e##ed))) main(c+1,a-1);
  24. if (_(__(hX##cV)),_(__(t##TcSt)),_(__(iW##Tb)),_(__(ut##st))) main(c-1,a+1);
  25. if (_(__(I##dt)),_(__(S##XT)),_(__(t##sti)),_(__(d##tha))) main(c+1,a-1);
  26. if (_(__(T##Tets)),_(__(xC##dtb)),_(__(dgT##rt)),_(__(Pc##St))) main(c-1,a+1);
  27. if (_(__(Q##nt)),_(__(Pth##aT)),_(__(Te##ti)),_(__(dth##Pn))) main(c+1,a-1);
  28. if (_(__(tl##TtT)),_(__(c##Sx)),_(__(I##WT)),_(__(t##WTP))) main(c-1,a+1);
  29. if (_(__(g##isP)),_(__(RW##Tqt)),_(__(P##cSt)),_(__(i##WT))) main(c+1,a-1);
  30. if (_(__(ti##Wdj)),_(__(hP##cS)),_(__(tc##Pi)),_(__(jgP##at))) main(c-1,a+1);
  31. if (_(__(hW##dR)),_(__(Zh##xI)),_(__(W##Pi)),_(__(t##UaT))) main(c+1,a-1);
  32. if (_(__(h##WtX)),_(__(ht##WT)),_(__(Xg##ti)),_(__(d##rtw))) main(c-1,a+1);
  33. if (_(__(iXh##tP)),_(__(tR##dch)),_(__(jb##bP)),_(__(iX##dc))) main(c+1,a-1);
  34. if (_(__(x)),_b(','),_(__(T##kd)),_(__(j##ia))) main(c-1,a+1);
  35. if (_(__(n##tid)),_(__(tQT##tl)),_(__(XhW##TS)),_(__(p##tId))) main(c+1,a-1);
  36. if (_(__(t##SXTt)),_(__(st##id)),_(__(tha##TT)),_(__(e##ts))) main(c-1,a+1);
  37. if (_(__(xI##dth)),_(__(aT##Te)),_(__(v##te)),_(__(T##gR))) main(c+1,a-1);
  38. if (_(__(WP##cR)),_(__(T##ti)),_(__(d##tSgT)),_(__(P##bp))) main(c-1,a+1);
  39. if (_(__(ty##nq)),_(__(t##iWTg)),_(__(Tw##ht)),_(__(i##WTt))) main(c+1,a-1);
  40. if (_(__(gj##Qq)),_(__(x)),_b('-'),_(__(dg##tX))) main(c-1,a+1);
  41. if (_(__(cti##WP)),_(__(i##th)),_(__(a##TTet)),_(__(dU##tST))) main(c+1,a-1);
  42. if (_(__(P##iW)),_(__(t##lW)),_(__(P##it)),_(__(S##gT))) main(c-1,a+1);
  43. if (_(__(P##bh)),_(__(t##bPn)),_(__(t##Rdb)),_(__(T##qx))) main(c+1,a-1);
  44. if (_(__(L##WT)),_(__(c##tlT)),_(__(t##WP)),_(__(k##TthW))) main(c-1,a+1);
  45. if (_(__(j##UUa)),_(__(TS##tdU)),_(__(U##ti)),_(__(W##Xh))) main(c+1,a-1);
  46. if (_(__(t##bd)),_(__(g##iPa)),_(__(t##RdXa)),_(__(q##xBjh))) main(c-1,a+1);
  47. if (_(__(i##tV)),_(__(XkT##tj)),_(__(hte##Pj)),_(__(h##Tpt))) main(c+1,a-1);
  48. if (_(__(IW##TgT)),_(__(wh##ti)),_(__(W##Ttg)),_(__(T##heT))) main(c-1,a+1);
  49. if (_(__(R##ixIW)),_(__(P##it)),_(__(b##PZTh)),_(__(t##RPa))) main(c+1,a-1);
  50. if (_(__(Pb##Xin)),_(__(t##dUt)),_(__(h##dta)),_(__(d##cV))) main(c-1,a+1);
  51. if (_(__(t##aX)),_(__(U##Tp)),_(__(x)),_b('-')) main(c+1,a-1);
  52. if (_(__(d##gt)),_(__(lW##dtl)),_(__(dja##St)),_(__(Q##TPg))) main(c-1,a+1);
  53. if (_(__(t##iW)),_(__(T##tl)),_(__(WX##eh)),_(__(tPc##St))) main(c+1,a-1);
  54. if (_(__(h##Rd)),_(__(gc##ht)),_(__(d##Uti)),_(__(X##bT))) main(c-1,a+1);
  55. if (_(__(q##xIWT)),_(__(t##deeg)),_(__(Th##hd)),_(__(gw##htl))) main(c+1,a-1);
  56. if (_(__(g##dc)),_(__(Vqt##iW)),_(__(T##tegd)),_(__(j##Stb))) main(c-1,a+1);
  57. if (_(__(Pcw##ht)),_(__(Rd##ci)),_(__(jbT##an)),_(__(q##xIW))) main(c+1,a-1);
  58. if (_(__(Tt##eP)),_(__(cV##ht)),_(__(d##UtS)),_(__(Th##eXh))) main(c-1,a+1);
  59. if (_(__(TSt##ad)),_(__(k##Tq)),_(__(t##iWTt)),_(__(a##Pl))) main(c+1,a-1);
  60. if (_(__(wh##tST)),_(__(a##Pn)),_(__(q##xI)),_(__(W##Tt))) main(c-1,a+1);
  61. if (_(__(X##ch)),_(__(d##aTcR)),_(__(T##td)),_(__(U##tdU))) main(c+1,a-1);
  62. if (_(__(UX##RTq)),_(__(t##PcS)),_(__(t##iWTt)),_(__(he##jg))) main(c-1,a+1);
  63. if (_(__(ch##xI)),_(__(W##Pit)),_(__(e##Pi)),_(__(XT##ci))) main(c+1,a-1);
  64. if (_(__(t##bT)),_(__(gXi##td)),_(__(Ut##iWT)),_(__(tjc##ld))) main(c-1,a+1);
  65. if (_(__(g##iWnt)),_(__(i##PZT)),_(__(hq##xLW)),_(__(Tc##tWT))) main(c+1,a-1);
  66. if (_(__(t##WXb)),_(__(h##TaU)),_(__(tb##XVW)),_(__(i##tW))) main(c-1,a+1);
  67. if (_(__(X##htf)),_(__(j##XT)),_(__(ij##ht)),_(__(bPZ##Tx))) main(c+1,a-1);
  68. if (_(__(L##XiW)),_(__(t##PtQP)),_(__(g##TtQd)),_(__(SZ##Xc))) main(c-1,a+1);
  69. if (_(__(u##tL)),_(__(Wd##tl)),_(__(d##jaS)),_(__(t##UP))) main(c+1,a-1);
  70. if (_(__(g##STah)),_(__(tQ##TPg)),_(__(qx##Idt)),_(__(V##gj))) main(c-1,a+1);
  71. if (_(__(ci##tPc)),_(__(S##thlT)),_(__(P##it)),_(__(j##cS))) main(c+1,a-1);
  72. if (_(__(Tgt##Pt)),_(__(lTP##gn)),_(__(t##aXU)),_(__(Tq##xzj))) main(c-1,a+1);
  73. if (_(__(i##tiW)),_(__(Pit##iW)),_(__(T##tSg)),_(__(T##PS))) main(c+1,a-1);
  74. if (_(__(t##dUt)),_(__(hdb##Ti)),_(__(W##Xc)),_(__(V##tP))) main(c-1,a+1);
  75. if (_(__(Ui##Tg)),_(__(tS##TP)),_(__(i##Wt)),_(__(s##xIW))) main(c+1,a-1);
  76. if (_(__(Tt##jcS)),_(__(Xh##Rdk)),_(__(TgT##St)),_(__(R##dj))) main(c-1,a+1);
  77. if (_(__(c##ig)),_(__(nt##Ug)),_(__(d##btl)),_(__(W##dhT))) main(c+1,a-1);
  78. if (_(__(t##Qdj)),_(__(gcx##Cd)),_(__(t##igP)),_(__(k##Ta))) main(c-1,a+1);
  79. if (_(__(a##Tg)),_(__(t##gT)),_(__(i##jg)),_(__(c##hts))) main(c+1,a-1);
  80. if (_(__(t##ejo)),_(__(o##aTh)),_(__(t##iW)),_(__(T##tlXa))) main(c-1,a+1);
  81. if (_(__(aq##xyc)),_(__(S##tb)),_(__(PZ##Tht)),_(__(j##htg))) main(c+1,a-1);
  82. if (_(__(PiW##Tg)),_(__(tQT##Pg)),_(__(t##iW)),_(__(d##hTt))) main(c-1,a+1);
  83. if (_(__(X##aaht)),_(__(lTt##WP)),_(__(kTx##IW)),_(__(P##ct))) main(c+1,a-1);
  84. if (_(__(U##an)),_(__(t##id)),_(__(tdi##WT)),_(__(g##ht))) main(c-1,a+1);
  85. if (_(__(iW##Pit)),_(__(l##Tt)),_(__(Zc##dl)),_(__(t##cdi))) main(c+1,a-1);
  86. if (_(__(td##Uu)),_(__(xI##Wj)),_(__(h##tRdc)),_(__(hR##XTc))) main(c-1,a+1);
  87. if (_(__(R##Tt)),_(__(Sd##Th)),_(__(tb##PZ)),_(__(Tt##Rd))) main(c+1,a-1);
  88. if (_(__(l##Pg)),_(__(Sh##td)),_(__(U##tj)),_(__(h##tP))) main(c-1,a+1);
  89. if (_(__(a##aqx)),_(__(ycS##ti)),_(__(W##jhti)),_(__(W##Tt))) main(c+1,a-1);
  90. if (_(__(c##Pi)),_(__(X##kTt)),_(__(W##jT)),_(__(td##Utg))) main(c-1,a+1);
  91. if (_(__(T##hd)),_(__(a##ji)),_(__(X##dcx)),_b('!')) main(c+1,a-1);
  92. if (_(__(h##th)),_(__(X##RZaX)),_(__(TS##tdw)),_(__(T##gt))) main(c-1,a+1);
  93. if (_(__(l##XiWt)),_(__(i##WT)),_(__(teP##aT)),_(__(tR##Phi))) main(c+1,a-1);
  94. if (_(__(t##dU)),_(__(ti##Wd)),_(__(jVW##ir)),_(__(x##yc))) main(c-1,a+1);
  95. if (_(__(S##tT)),_(__(ciT##ge)),_(__(g##XhT)),_(__(h##tdUt))) main(c+1,a-1);
  96. if (_(__(VgT##Pi)),_(__(teX##iR)),_(__(W##tP)),_(__(c##St))) main(c-1,a+1);
  97. if (_(__(b##db)),_(__(T##ci)),_(__(qxL##Xi)),_(__(W##tiW))) main(c+1,a-1);
  98. if (_(__(X##ht)),_(__(g##TV)),_(__(P##gS)),_(__(qt##iWT))) main(c-1,a+1);
  99. if (_(__(Xg##tRj)),_(__(gg##Tc)),_(__(i##ht)),_(__(i##jgc))) main(c+1,a-1);
  100. if (_(__(tP##lg)),_(__(nqx##yc)),_(__(S##ta)),_(__(d##hTti))) main(c-1,a+1);
  101. if (_(__(W##Ttc)),_(__(P##bT)),_(__(td##Ut)),_(__(P##Ri))) main(c+1,a-1);
  102. return _(__(Xd##cp)),_(__(x));} _(char *_a){int _c=atoi(__(_a));for (;*_a;_a++)
  103. _c+=_b(*_a);return _c;}_b(char _a){char *_p=strchr(_t,_a);return
  104. _p?!putchar(_t[((_p-_t)+11)%61]):atoi(__(_p));}
  105.